home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
BBS Toolkit
/
BBS Toolkit.iso
/
qbbs
/
qovl_264.zip
/
STRUCT.264
< prev
Wrap
Text File
|
1990-02-18
|
12KB
|
323 lines
(****************************************************************************)
(* Structures document for QuickBBS version 2.64 *)
(* Copyright 1990, The QuickBBS Group, Inc. All Rights Reserved. *)
(****************************************************************************)
Type
FlagType = Array[1..4] of Byte;
UserRecord = Record
Name: String[35];
City: String[25];
Pwd: String[15];
DataPhone,
HomePhone: String[12];
LastTime: String[5];
LastDate: String[8];
Attrib: Byte;
Flags: FlagType;
Credit,
Pending,
TimesPosted,
HighMsgRead,
SecLvl,
Times,
Ups,
Downs,
UpK,
DownK,
TodayK,
Elapsed,
Len: Integer;
CombinedPtr: Word; (* Record number in COMBINED.BBS *)
Age: Byte; (* Not yet implemented *)
ExtraSpace: Array[1..5] of Byte;
End;
(* Attrib:
Bit 0: Deleted
Bit 1: Screen Clear Codes
Bit 2: More Prompt
Bit 3: ANSI
Bit 4: No-Kill
Bit 5: Ignore Download Hours
Bit 6: ANSI Full Screen Editor
Bit 7: [ Reserved ]
*)
{ Nodelist Records *************************************************** }
NodeIdxRecord = Record
Zone,
Net,
Node: Integer;
NodeType: Byte;
End;
NodelistRecord = Record
NodeType: Byte;
Zone,
Net,
Node: Integer;
Name: String[20];
City: String[40];
Phone: String[40];
Password: String[8];
Flags: Integer;
BaudRate: Integer;
Cost: Integer;
End;
{ Message Records ******************************************************}
CombSelectType = Array[1..200] of Boolean; (* for COMBINED.BBS *)
InfoRecord = Record
LowMsg: Integer; { Lowest Message in File }
HighMsg: Integer; { Highest Message in File }
TotalActive: Integer; { Total Active Messages }
ActiveMsgs: Array[1..200] of Integer;
End;
IdxRecord = Record
MsgNum: Integer;
Board: Byte;
End;
HdrRecord = Record
MsgNum,
ReplyTo,
SeeAlsoNum,
TRead: Integer;
StartRec: Word;
NumRecs,
DestNet,
DestNode,
OrigNet,
OrigNode: Integer;
DestZone,
OrigZone: Byte;
Cost: Integer;
MsgAttr,
NetAttr,
Board: Byte;
PostTime: String[5];
PostDate: String[8];
WhoTo,
WhoFrom: String[35];
Subj: String[72];
End;
(* Msg Attributes:
Bit 0: Deleted
Bit 1: Unmoved Outgoing Net Message
Bit 2: Is a Net Mail Message
Bit 3: Private
Bit 4: Received
Bit 5: Unmoved Outgoing Echo Message
Bit 6: Local Bit
Bit 7: [ Reserved ]
Net Attributes:
Bit 0: Kill Message after it's been sent
Bit 1: Sent OK
Bit 2: File(s) Attached
Bit 3: Crash Priority
Bit 4: Request Receipt
Bit 5: Audit Request
Bit 6: Is a Return Receipt
Bit 7: [ Reserved ]
*)
{ Other Stuff *********************************************************** }
SysInfoRecord = Record
CallCount: LongInt;
LastCaller: String[35];
ExtraSpace: Array[1..128] of Byte;
End;
TimeLogRecord = Record
StartDate: String[8];
BusyPerHour: Array[0..23] of Integer;
BusyPerDay: Array[0..6] of Integer;
End;
MenuRecord = Record
Typ: Byte;
Sec: Integer;
Flags: FlagType;
Str: String[75];
Key: Char;
Data: String[80];
Fg,
Bg: Byte;
End;
{ Configuration Information ********************************************** }
EventRecord = Record
Status: Byte; { 0=Deleted 1=Enabled 2=Disabled }
RunTime: String[5];
ErrorLevel: Byte;
Days: Byte;
Forced: Boolean;
LastTimeRun: String[8];
End;
BoardRecord = Record
Name: String[16];
Typ: Byte; { 0=Standard 1=Net 3=Echo }
Kinds: Byte; { 0=Both 1=Pvt 2=Pub 3=Read-Only }
Combined: Boolean;
Aliases: Boolean;
ReadSecLvl: Integer;
ReadFlags: FlagType;
WriteSecLvl: Integer;
WriteFlags: FlagType;
SysopSecLvl: Integer;
SysopFlags: FlagType;
End;
ConfigRecord = Record
(* Modem Parameters *)
CommPort: Integer;
InitBaud,
InitTimes,
AnswerWait: Integer;
ModemInitStr,
ModemBusyStr: String[70];
ModemInitResp,
ModemBusyResp,
Resp300,
Resp1200,
Resp2400: String[40];
(* System Paths *)
MenuPath,
TextPath,
NetPath: String[66];
(* Restriction Parameters *)
MinBaud,
GraphicsBaud,
XferBaud: Integer;
LowBaudStart,
LowBaudEnd,
DownloadStart,
DownloadEnd,
PagingStart,
PagingEnd: String[5];
(* Matrix Information *)
MatrixZone,
MatrixNet,
MatrixNode: Integer;
AkaNet,
AkaNode: Array[1..5] of Integer;
NetMailBoard: Integer;
(* Default Information for New Users *)
DefaultSec: Integer;
DefaultCredit: Integer;
DefaultFlags: FlagType;
(* Sysop Security Levels *)
EditorCmdStr: String[70];
OriginLine: String[60];
SysopName: String[35];
AutoLogonChar,
FastLogon,
ScreenBlanking,
UseLastRead,
MonoMode,
DirectWrite,
SnowCheck,
NetEchoExit,
OneWordNames,
CheckMail,
AskHomePhone,
AskDataPhone,
GraphicsAvail: Boolean;
InactiveTimeOut: Integer;
LogonTime: Integer;
DefFgColor: Integer;
DefBgColor: Integer;
PasswordTries: Integer;
MaxPageTimes: Integer;
PageBellLen: Integer;
Use_Xmodem: Boolean;
Use_Xmodem1k: Boolean;
Use_Ymodem: Boolean;
Use_YmodemG: Boolean;
Use_Sealink: Boolean; { Changed for 2.04 }
Use_Zmodem: Boolean; { " " }
Inp_Fields: Boolean; { " " }
QuoteStr: String[3];
UploadCredit: Integer;
LoadingMessage: String[70];
SelectionPrompt: String[70];
VersionID: Word;
{ Added for 2.04: }
Resp4800,
Resp9600: String[40];
AkaZone: Array[1..5] of Integer;
{ Added for 2.60: }
MatrixPoint: Integer;
AkaPoint: Array[1..5] of Integer;
UseAka: Array[1..200] of Byte;
AskAge: Boolean; (* Not yet Implemented *)
SystemName: String[40];
RegKey: Longint;
ExtraSpace: Array[1..5] of Byte;
EventRec: Array[1..30] of EventRecord;
BoardRec: Array[1..200] of BoardRecord;
End;
GosubDataType = Array[1..20] of String[8];
ExitRecord = Record
BaudRate: Integer;
SysInfo: SysInfoRecord;
TimeLogInfo: TimeLogRecord;
UserInfo: UserRecord;
EventInfo: EventRecord;
NetMailEntered: Boolean;
EchoMailEntered: Boolean;
LoginTime: String[5];
LoginDate: String[8];
TmLimit: Integer;
LoginSec: LongInt;
Credit: LongInt;
UserRecNum: Integer;
ReadThru: Integer;
PageTimes: Integer;
DownLimit: Integer;
WantChat: Boolean;
GosubLevel: Byte;
GosubData: GosubDataType;
Menu: String[8];
End;